home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
EINDEX.DIR
/
00705_Script_705
< prev
next >
Wrap
Text File
|
1995-09-06
|
2KB
|
97 lines
--òò StartMovie Handlers
--** July 15 95 2 P.M.
--** Needs to have functions added to reference link cast members
Global gBtn17,gBtn18,gWhatMovie,gTheHelpIsOn,┬
gReInitGlobals, gIndexManager
on StartMovie
set gBtn17 = birth(script "a3StateButton", 47, 1925, "SE141819.AIF", "CrossAIndex", "HandCursor")
set gBtn18 = birth(script "a3StateButton", 48, 1928, "SE141819.AIF", "CrossVIndex", "HandCursor")
set gWhatMovie = "EgyptW"
if gReInitGlobals = 1 then
EGlobalSetUpFromTheatre
set gReInitGlobals = 0
end if
EGlobalsSetUpIndex
set gTheHelpIsOn = 0
initializeIndex
set the cursor of sprite 3 = [1904 , 1905]
set spriteCount = 3
repeat while (spriteCount < 29)
set the cursor of sprite spriteCount = [1904 , 1905]
set spriteCount = spriteCount + 1
end repeat
set the cursor of sprite 40 = [1904 , 1905]
end
on StopMovie
hidecontrol (gBtn17)
hidecontrol (gBtn18)
set gBtn17 = 0
set gBtn18 = 0
unload 1, 360
disposeIndexSystem
set spriteCount = 3
repeat while (spriteCount < 29)
set the cursor of sprite spriteCount = -1
set spriteCount = spriteCount + 1
end repeat
set the cursor of sprite 40 = -1
end
on resetIndex
resetIndex (gIndexManager)
end
--òòInitialize Index System Code
on initializeIndex
--òò use sprite 2 to hold sub menu
puppetSprite 2,TRUE
--òò use sprite 40 to hold sub memu icon art
puppetSprite 40,TRUE
set gIndexManager = birth ( script "aIndexManager")
initIndex(gIndexManager)
end
--òòDispose of objects
on disposeIndexSystem
puppetSprite 2, FALSE
puppetSprite 40,FALSE
set gIndexManager = 0
end
--òòUser input interface handlers : Track mouse movement and clicks
on rolloverIndex
testIndexRollover(gIndexManager)
end
on clickAlpha
clickAlpha(gIndexManager)
end
on clickTopic
clickTopic(gIndexManager)
end
on clickRefLink
set horzPos = the mouseH
set vertPos = the mouseV
clickRefLink(gIndexManager ,horzPos,vertPos)
end
on doBeep
--beep 3
--put "gotFunctionString"
end
on setTEXT startC,stopC
repeat while (startC <= stopC)
put startC
set the scriptText of cast startC = "--0,0,0,0,doBeep;%"
set startC = startC + 1
end repeat
end